#!/usr/bin/env perl -w
#
use CGI qw(:all);

$q = new CGI;
$| = 1; # piping hot

print 
$q->header('text/html');

print   
$q->start_html( -"title"    =>'Testing', 
        -"BGCOLOR"  =>"white"), "\n"; 
print   
print    "\n", 
    h1( "Testing CGI server with Perl script: testPerlCgiScript.pl"       ), "\n", 
    br, br, hr;    

print   hr,
    p("Contact not available."), 
    $q->end_html, "\n";
